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* LOW LEVEL GRAPHICS INTRINSICS * * SECTION 2.1.4 * 

Version 1.5 September 1978 

Updated April 1979, TERAK Corporation 

Pub no. 60-0024-101 

PRELIMINARY INFORMATION 



Graphics on the TERAK 8510/a are bit mapped raster scan graphics, 
refreshed directly from main memory. The display presented is a 
composite this 240 by 320 dot graphics display with the 24 by 80 
character display. Two 8510/a registers, in the I/O memory page, 
control the display of graphics: the Graphics Address Register (GAR) 
contains the starting address of the memory to be displayed as 
graphics. The Video Control Register (VCR) controls the 
blanking/unblanking of the graphics and characters on the video 
monitor. Detailed descriptions of the operatons of these registers 
are contained in the VIDEO DISPLAY AND 24K MEMORY SYSTEM User 
Reference Guide, TERAK Publication Number 52-0002-001. 

The GAR and VCR may be set from high level Pascal code by the 
UNITWRITE intrinsic operating on Unit #3. Before issuing a call to 
UNITWRITE, the Pascal program should have allocated memory for 
graphics by declaring a variable. Tor example, the following 
statements allocate one picture space: 

TYPE 

TERAKSCREEN = RECORD 
CASE INTEGER OP 

1:( BITS:PACKED ARRAY [0.. 239] OF PACKED ARRAY [0.. 319] OF BOOLEAN); 

2:( chrs:packed array [0.. 9 599] of char); 
3:( i nts: array [0.. 4799] of integer;); 
4:( sets: array [0.. 4799] of set of [0..15] 
end;(*case*) 

var screen : terakscreen; 

These allocate one picture-full of memory the the variable SCREEN. 
The screen contents can be manipulated either by direct assignment: 

SCREEN.BITS [10,100]:= TRUE 
(which lights the dot at row 10, column 100) by I/O intrinsics: 

RESET(PIX,'PIX.FOTO); UNITREAD(PII, SCREEN, 19); 
(which loads a .FOTO file into the memory) by high level operations: 

FOR I:=0 TO 4799 DO SCREEN. SETS [I] :=[0 . .15] - SCREEN. SETS [I] ; 
(which reverses the entire picture) or by the graphics intrinsics 
supplied with the Terak release of the Pascal system, documented 
below. Note that a picture memory space need not be a full screen, 
and need not necessarily be displayed while being manipulated. 
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Typically, the picture memory space must be initialized to all 
blanks or all dots lit. These can he accomplished, respectively, 
hy these two statements: 

FILLCHAR(SCREEN,9600,CHR(0)) for blanks, or 

FILLCHAR{SCREEN,9600,CHR(255)) forall dots lit. 

The generic call of UNITVRITE to volume #3 connects the graphics 
display hardware of the 8510/a with the allocated picture memory: 

UNITWRITE(3,GARVAL,VCRVAL); 
where GARVAL = <hase of picture memory>, 
and VCRVAL = <integer zone blanking variable> 

The GARVAL directs the location of the graphics display memory, and 
the VCRVAL parameter directs which of the character and graphics 
zones of the 8510/a are to be visible. When u^ing UNITWRITE to 
volume #3 the address of the second parameter is loaded into the 
GAR, and the third parameter is loaded directly into the VCR. Thus, 
any of the bits in the VCR can be changed by placing the decimal 
representation of the bits into the third parameter of a UNITWRITE 
call to volume #3. Addresses loaded into the GAR must always be on 
even (integer) boundaries. The following illustrate different effects 
of the UNITWRITE parameters: 

UNITWRITE(3, SCREEN ,63) ; 
Display 3 (all) zones of graphics from picture memory in SCREEN, 
and display 3 (all) zones of the character display. 

UNITWRITE(3, SCREEN, 56) ; 
Display 3 (all) zones of graphics from picture memory in SCREEN, 
and blank all zones of the character display. 

UNITWRITE(3, SCREEN ,49) ; 
Display upper two zones of graphics from picture memory in SCREEN, 
and lower one zone of the character display. 

UNITWRITE (3, SCREEN. I NTS [1600] ,19); 
Display middle one zone of graphics from picture memory in SCREEN, 
starting at SCREEN[3200] thru SCREEN[4799] , and lower one zone of 
the character display. The upper display zone is blanked. Note that 
the GAR must be directed to the virtual starting address of the 
upper zone, although it and other zones may be blanked. 

UNITWRITE(3,I,263); UNITWRITE(3,I ,63 ); 
Blank all graphic display zones, unblank all character display zones, 
and sound a 'click' at the display by toggling the state of the Audio 
bit in the VCR. In this case, 'l' is a dummy second parameter. 
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GRAPHICS PROCEDURE CALLS 

The Procedures DRAWLINE and DRAV3L0CK are provided l)y UCSD. The 
Procedures DRWBLK: , GCHAR, GMARK , and THROTTLE are provide by TERAK . 
All procedures are contained In *SYSTEM,LIBRART and must be 
declared EXTERNAL before use. 

:t:j{c«s!£j{£:t:*******************«** WARN I NG ********>!cj{c^:4j«*>}:**»{:#3{£****3{s}!:* 

** These graphics procedures do no range checking on parameters. ** 

** If parameters passed to the procedures are 'out of bounds ' the ** 

** procedures will produce unexpected results — most likely, ** 

** destruction of the user program, or operating system. ** 



DRAWLINE, DRAWBLOCK, and DRWBLK CONVENTIONS 

The Coordinate System used by DRAWLINE, DRAWBLOCK, and DRWBLK fixes 
the point (0,0) In the upper left portion of the display. I and T 
locations of the screen should be addressed using the following 

scheme. 

(0,0) (319,0) 

positive X direction RIGHT. | 

positive Y direction DOWN. j 

I 
I 

I 

I 
(0,239) -— (319, 239 ) 
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DRAWLINE 

This procedure draws lines in one of five modes, into memory. The 
screen address parameter must he on an even (integer) boundary. Note 
that the ROWWIDTH parameter indicates the width of the picture space, 
and is not necessarily restricted to the standard screen width. 
Picture space widths must he on integer houndaries; thus the 
parameter indicates the multiples of 16 hits of width required. 
Drawing into reduced width pictures is useful to prepare a suh- 
picture for transfer hy DRAWBLK, which also has a width parameter. 
In all DRAWLINE calls, the starting hit is not affected hy the line. 
RADAR mode will return the numher of steps from the starting point 
to the nearest ohstacle (hits set) along the line, into RAN&E. 

PROCEDURE DRAWLINE ( 

VAR RANGE : INTEGER; {returns result of radar scan when PENSTATE=4} 

VAR SCREEN: TERAKSCREEN; {graphics memory} 

ROWWIDTH, {#of 16 hit words per row, typically 20 } 

XSTART, {heginnlng X point of line} 

YSTART, {heginning Y point of line} 

DELTAX, {distance to move in X} 

DELTAY, {distance to move in Y} 

penstate:integer 
); exteral; 

penstate action 



PENUP no change in picture 

1 PENDOWN force hits on 

2 ERASE force hits off 

3 COMPLEMENT reverse hits 

4 RADAR scan for ohstacle, no change in picture 

NOTE: A Pascal implementation of DRAWLINE is provided on page 159 
of the UCSD PASCAL MANUAL. 



DRAWBLOCK 
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This procedure will do a two-dimension oriented transfer of "bits, 
from a source block into a target block. The source and destination 
"block must be of the same width and height, but may be located at 
any bit location within the same or different picture memory spaces. 
Different picture memory spaces are allowed to have different 
widths. The effect which the source block has upon the target block 
is controlled by the mode parameter. Complement mode is useful to 
overlay a picture with a block image, and then erase it while 
restoring the original picture contents. Graphics animation 
typically makes use of Complement mode. NOTE: BRAVBLK calls which 
overlap the source and target blocks should be approachedwith 
caution. Note also that row widths are given in bits, not words (as 
in DRAWLINE), and must be a multiple of 8. 



CONST 



SRCXSIZE = {# of bits in source x direction. Use ((multiple of 8)-l)} 
SRCYSIZE = {number of bits in source y direction} 
TaTXSiZE = 319; {320 bits in x when target is TERAKSCREEN} 
TGTTSIZE = 239; {240 bits in y when target is TERAKSCREEN} 



TYPE 

TERAKSCREEN 

SRC 



PACKED ARRAY [0..TGTYSIZE] OF 

PACKED ARRAY[0..TGTXSIZE] OF BOOLEAN; 
ARRAY [0.. SRCYSIZE] OF 

PACKED ARR AY [0.. SRCXSIZE] OF BOOLEAN; 



PROCEDURE DRAWBLOCK (VAR SOURCE 

SRCROW, 



SRC; {source block} 

{#bits/row of block, multiple of 8} 
SRCX, (x start location of source} 

SRCY rINTEGER; {y start location of source} 
VAR DEST :TERAKSCREEN; {Destination block} 

DSTROV, {#bits/row of dst block, multple of 8} 

DSTX, {x start location of destination} 

DSTY, {y start location of destination} 

CNTX, {number of bits to move x direction} 

CNTY, {number of bits to move y direction} 

MODE :INTEGER {see below} 

); external; 



DRAWBLOCK MODE 


1 
2 
3 



ACTION 



tgt 
tgt 
tgt 
tgt 



= src 

= not (src) 
= src XOR tgt 
= src OR tgt 



{replace} 

{complement & overlay} 
{eraseable overlay} 
{overlay} 
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NOTEl: The call interface and modes are different from the 1.4 

implementation of DRAVBLOCK. If you are converting programs 
from 1.4 to 1.5 either change mode parameters, or use the 
DRWBLK procedure provided below. 

N0TE2: Vhen using DRAWBLOCK or DRWBLK for animation the intrinsics 

UNITVAIT and UNITWRITE on volume #3 perform syncronization with 
vertical retrace of the video display (every 60th of a second). 
This is useful to pace the changes to the screen, maintaining 
uniform intensity of animated features. 



DRWBLK 
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DRWBLK Is proTided for use In converting programs from 1.4 to I.5. 
If you are beginning new deTClopment use DRAWBLOCK above as It 
performs the same function as DRWBLK in a more general fashion. 
In particular, note that DRWBLK requires that the source block be on 
an even (integer) boundary, while DRAWBLK is completely general. 
Also, the Mode parameter differs in values from the two procedures. 

To convert 1.4 programs to 1.5 include the following external 
declaration for DRWBLK then change every occurance of DRAWBLOCK 
to DRWBLK in the program. 



PROCEDURE DRWBLK ( 



VAR SODRCE:SRC; {source block} 

VAR SCREEN :TERAKSCREEN; {target block} 

ROWSIZE, " 

STARTI, 

START!, 

SIZEX, 

SIZEY, 

mode : integer 
); external; 



{always 20} 
{start I for target} 
{start y for target} 
{number of bits to move in 
{number of bits to move in 
{see below} 



x} 



DRWBLK MODES 


1 
2 
3 



ACTION 



tgt 


:= tgt 


OR src 


tgt 


!= src 




tgt 


:= not 


(src) 


tgt 


:= tgt 


XOR src 



GCHAR S, GMARK 
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The following routines GMARK & GCHAR support graphics on the 8510/a 
hy drawing characters and markers in the graphics space. 

Both routines address the screen in absolute screen coordinates with 
(0,0) defined as the lower left corner of the screen. Note that this 
is a diferent addressing conrention from that of DRAWL I NE or DRAVBLK. 

Both routines will support a picture memory height smaller, equal to, or 
larger than the actual display height (as controlled hy the VCR zone 
hlanking. The y dimension must, however, he a multiple of 80 (l.e 
1/3 screen or the equivalent of a single screen zone. The parameter 
NZONE conveys the the picture memory height to the procedures. 

The screen dimension in the x direction is always 0. .319. 

(0, (nzone*80)«l ) (319, (nzone*80 )-l ) 



ABSOLUTE 

I screen coordinates for 

1 GMARK AND GCHAR 

I 

I 



(0,0)^ 



— — ^— (319 ,0 ) 



Linestyle for hoth routines is for white (set hits on), 1 for hlack 
(clear "bits out — erase). Neither routine supports XOR or COMPLIMENT 
mode. 

Character patterns for GCHAR are derived from an 8 dot wide by 10 
dot high template, which is fetched from the 8510/a writeahle 
character generator. The HEIGHT and WIDTH parameters to GCHAR define 
how many templates high and wide the target character block will be. 
Thus a call to GCHAR with the parmeter values h=3 and w=2 would create 
a character in the graphics space which is 30 dots high and 16 dots wide. 
The X, Y coordinates locate the lower left corner of the target block. 



PROCEDURE 



GCHAR ( VAR: 

SCREEN ARRAY: 
NZONE 
ORD(CHAR) 
X 
Y 

HEIGHT 
WIDTH 
LINESYLE 



POINTER TO ARRAY USED AS SCREEN, 
INTEGER, {NUMBER OF ZONES TO DRAW ON} 
{Character to print} 
{RANGE 0<'=X<=319} 
{RANGE 0<=Y<=(NZONE*80-1)} 



INTEGER, 
INTEGER, 
INTEGER, 
INTEGER, 
INTEGER, 
INTEGER 



); external; 



GMARK 
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This routine draws a 7 dot wide hy 7 dot high marker, into the 
graphics picture memorj. The pattern of the nrarker is controlled "by 
the parameter MN. The marker will he centered on the screen location 
X,Y. If the marker would lie outside the clipping "boundary defined 
by [XLEFT..XRIGHT] and [TBOT..TTOP] then the marker will he trimmed 
to fit the boundary. 

The following conditions are expected to he true. Violation of these 
conditions will result in unpredictable results. 

0<=X<=319 
0<=Y<=NZONE*80-1 
XLEFT <= X <= XRIGHT 
YBOT <= Y <= YTOP 

PROCEDURE GMARK( SCREEN: ARRAY FOR SCREEN DISPLAY 

# OF 1/3 ZONES OF SCREEN 

X LOCATION OF MARKER 

Y LOCATION OF MARKER 

MARKER NUMBER 0<=MN<=7 

XLEFT OF WINDOW TO CLIP MARKER 

XRICHT OF WINDOW TO CLIP MARKER 

YBOTTOM TO CLIP MARKER 

YTOP TO CLIP MARKER 

LINESTYLE FOR PEN: IS WHITE, 1 BLACK 





NZONE ! 


I INTEGER, 




X ! 


! INTEGER, 




Y 


\ INTEGER, 




MN J 


! INTEGER, 




AXL 


; INTEGER, 




AXR J 


; INTEGER, 




AYB J 


r INTEGER, 




AYT J 


t INTEGER, 




LSTY 1 


: INTEGER, 


THROTTLE 







This procedure proTides rudimentarty time control. Control 
return to the calling program when the indicated time, in ticks 
the line frequency clock, has passed. 

PROCEDURE THROTTLE(TICKS:INTEGER); EXTERNAL; 



will 
of 



